home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_02_04 / 2n04075b < prev    next >
Encoding:
Text File  |  1991-03-19  |  287 b   |  9 lines
  1.  
  2.     OPEN "COM1:9600,N,8,1"
  3.     PLAY "o3 l8 e. l16 d l8 cdee l4e" 'Mary had a little lamb
  4.     FOR X = 1 TO 10: READ A$: B$ = B$ + A$: NEXT
  5.     CIRCLE (230, 130), 150, 9, -.6, -5.8
  6.     OPEN FileName$ FOR ISAM RecType Table$ AS #1
  7.     REDIM PRESERVE Array(-10 TO 32000) AS DOUBLE
  8.  
  9.